home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-09 / floppies.zip / FLOPPY.ZIP / FLOPSORT.SC < prev    next >
Text File  |  1992-03-15  |  2KB  |  69 lines
  1. ;--------FLOPSORT.SC
  2. ;---TO SORT
  3. ;-------------------SET UP MENU LOOP
  4. CHOICE = " "
  5. WHILE CHOICE <> "EXIT"
  6.       ;----------------SHOW OPTION MENU.
  7.       SHOWMENU
  8.           "DISK #" : "SORT BY DISK NUMBER",
  9.           "DESC" : "SORT BY DISK DESCRIPTION",
  10.           "FILE" : "SORT BY FILE NAME",
  11.           "DATE" : "SORT BY FILE DATE",
  12.           "CAT" : "SORT BY CATEGORY",
  13.           "S/W" : "SORT BY SHAREWARE/NON-SHAREWARE",
  14.           "LOC" : "SORT BY BOX LOCATION",
  15.           "EXIT" : "RETURN TO OPERATING SYSTEM "
  16.       TO CHOICE
  17.       ;------------------PLAY SCRIPT OF CHOICE.
  18.       SWITCH
  19.          CASE CHOICE = "DISK #" :
  20.               A=1
  21.          CASE CHOICE = "DESC" :
  22.               A=2
  23.          CASE CHOICE = "FILE" :
  24.               A=3
  25.          CASE CHOICE = "DATE" :
  26.               A=4
  27.          CASE CHOICE = "CAT" :
  28.               A=5
  29.          CASE CHOICE = "S/W" :
  30.               A=6
  31.          CASE CHOICE = "LOC" :
  32.               A=7
  33.          CASE CHOICE =  "EXIT " :
  34.                    CLEAR
  35.                    STYLE REVERSE
  36.                    @ 12,24
  37.                    ?? "RETURNING TO MAIN MENU..."
  38.                  MENU {EXIT}{YES}
  39. ENDSWITCH
  40.  
  41.  
  42.  
  43.  
  44.                 {Modify} {Sort} {Floppies} {Same}
  45.  
  46.                IF A=1 THEN
  47.                       "1" DO_IT!  RETURN
  48.                ENDIF
  49.                IF A=2 THEN
  50.                       DOWN "1" DO_IT!   RETURN
  51.                ENDIF
  52.                IF A=3 THEN
  53.                       DOWN DOWN "1" DO_IT! RETURN
  54.                ENDIF
  55.                IF A=4 THEN
  56.                       DOWN DOWN DOWN "1" DO_IT! RETURN
  57.                ENDIF
  58.                IF A=5 THEN
  59.                       DOWN DOWN DOWN DOWN "1" DO_IT! RETURN
  60.                ENDIF
  61.                IF A=6 THEN
  62.                       DOWN DOWN DOWN DOWN DOWN "1" DO_IT! RETURN
  63.                ENDIF
  64.                IF A=7 THEN
  65.                       DOWN DOWN DOWN DOWN DOWN DOWN "1" DO_IT! RETURN
  66. ENDWHILE
  67. RETURN
  68.  
  69.